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I NT ERA CTIVE 


EDITORS CORNER FOR YOUR INFORMATION ' 


I’d like to devote an entire issue on the application of AIM 65 to Com¬ 
puter Aided Design (CAD). 

I remember working out design problems with a calculator and thinking 
how much more efficient it was than the slide rule method (at that time, 
it was almost against the rules to have a calculator in school). I also 
remember having to work out the same equation over and over, changing 
one parameter each time, until it came out right. Those types of repet¬ 
itive tasks are ideal for the computer to work on. 

There must be quite a large number of design problems where param¬ 
eters must be changed and solutions checked. One area that immediately 
comes to mind is in active filter design. Plenty of equations to work out 
and parameters to change here. 

I'm sure that a number of you are using a BASIC equipped AIM 65 for 
CAD. How 'bout sharing some of those programs with the rest of us??? 

SUBMITTING ARTICLES 


Please try to type your article double spaced. If you can’t get to a type¬ 
writer, then print neatly. Don't use the editor on your AIM 65 because 
it is upper case only and will drive a typist to drink. Programs should 
be submitted on AIM 65 cassette as a BASIC or assembly language text 
file so the program can be assembled on a machine with a wider carriage 
printer for increased readability. Use a tape gap of about $20 to com¬ 
pensate for any differences in equipment. Your tape will be returned to 
you from an appreciative editor. 

PUBLISHED PROGRAMS 


Several of you have mentioned that you are having problems getting the 
AIMPLOT program from issue # 2 to run correctly. Besides the cor¬ 
rections to AIMPLOT that are mentioned in this issue, I don’t know 
where the problem is as of yet, but should have it figured out by the 
next issue. If you can't wait, send me a self addressed stamped envelope 
and I'll send you the fix when I get it. I will, if at all possible, try to 
run the programs that are published in Interactive and ask that all pro¬ 
grams be submitted on cassette in source form. (The only program in 
this issue that I haven't tried is the one in the BASIC USR HELPER 
article.) 


Editor 


COPYRIGHT 1980 ROCKWELL INTERNATIONAL CORPORATION 

Rockwell does not assume any liability arising out of the application or use of any 
products, circuit, or software described herein, neither does it convey any license 
under its patent rights nor the patent rights of others Rockwell further reserves 
the right to make changes in any products herein without notice 
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SPARE PARTS 


(714 632-0975 Use this number 
when you have technical 
questions concerning the 
AIM 65 system or are having 
difficulty interfacing to the AIM 
65. 

(714) 632-3860 Use this number 
when you have technical 
questions concerning individual 
6500 family devices whether or 
not they are on the AIM 65. 

800-351-6018-Call this number 
when your AIM 65 is broken and 
needs repair. Their address is: 
AIM 65 REPAIR 
Rockwell International 
6 Butterfield Trail Dr. 

El Paso, TX 79924 

(714) 632-3729, 800-854-8099 
(in California call 800-422-4230)- 
Call one of these numbers when 
you need literature for a certain 
product, information on your 
nearest Rockwell dealer/ 
distributor or to request a 
particular application note. 

(714) 632-3698-Call this number 
when you need price information 
for AIM 65 or Microflex 65 
accessories or other Rockwell 
products. 

(714) 632-2190-Call this number 
when you want to order spare 
parts for your AIM 65. (The 
minimum cash order is $10.) 


To keep receiving this newsletter, subscribe now! The cost is $5 for 6 
issues ($8 overseas). (NO CASH OR PURCHASE ORDERS WILL BE 
ACCEPTED) (Payment must be in U.S. funds drawn on a U.S. bank). 

All subscription correspondence and articles should be sent to: 

EDITOR, INTERACTIVE 
ROCKWELL INTERNATIONAL 
POB 3669, RC 55 
ANAHEIM, CA 92803 
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MICROFLEX 65 ADD-ON 
FAMILY NOW AVAILABLE 


The first eight members of the new Microflex 65 products have been 
introduced by Rockwell. 

The units include a module adapter for single cards, a buffer module that 
adapts AIM 65 to multiple-card motherboards, a 4-slot piggyback mod¬ 
ule stack, a prototyping module, an extender card for troubleshooting, 
an 8K static RAM card, a 16K PROM/ROM card and a two-port asyn¬ 
chronous communications interface adapter. 

The Microflex 65 bus offers memory addressing up to 128K bytes, high 
immunity to electrical noise, and growth provisions for user functions. 

The RM65-7101 Single-Card Adapter connects any Microflex 65 module 
to the AIM 65 microcomputer’s system expansion connector. 

The RM65-7104 Adapter/Buffer Module interfaces the AIM 65 to any 
Microflex 65 motherboard and will drive up to 15 modules. The RM65- 
7004 4-Slot Piggyback Module Stack (PMS) is the first available card 
cage and motherboard assembly in the Microflex 65 family. The compact 
PMS form factor allows low-profile packaging of a Microflex 65/AIM 
65 system in a desktop or terminal style enclosure. The PMS is $150 in 
single quantities. 

The RM65-7201 Design Prototyping Module allows Microflex 65 users 
to develop their own custom circuits. Power and return lines are pre¬ 
routed and plated-through holes allow manual or automatic wire wrap¬ 
ping of components and sockets. The RM65-7211 Extender Card pro¬ 
vides easy access to circuitry for probing by extending a card from a 
cage at enclosure, simplifying signal tracing and troubleshooting. 

The RM65-3108 8K Static RAM Module uses R2114 devices arranged 
in two 4K memory blocks. Module features include address assignment, 
write protect and bank select and enable. The RM65-3216 16K PROM/ 
ROM Module has eight 24-pin sockets, allowing installation of standard 
2K, 4K or 8K ROM or PROM devices. 

The RM65-5451 ACIA Module interfaces two independent, asynchron¬ 
ous serial I/O channels. Each may operate as a data terminal or a data 
set. Channel 1 provides RS-232C and 20 ma current loop interfaces 
and Channel 2 is an RS-232C port. Program-selectable features on 
each channel include word length, number of stop bits, parity, internal/ 
external receiver clock source, and 15 data rates from 50 to 19,200 baud. 
On-board DC/DC converter allows + 5V only operation. 

The Rockwell Microflex 65 product line expands the capabilities of the 
AIM 65 microcomputer in Industrial, OEM, Educational and Product 
Development applications. The Microflex 65 family is available in edge 
connector or Eurocard versions. 


MORE MICROFLEX 65 “ON THE WAY” 

Three additional Microflex 65 family boards (the SBC, a 32K dynamic 
RAM, and a GPIO module) are slated for delivery in December 1980. 

The SBC (Single Board Computer) features an R6502 CPU, sockets for 
up to 16K of PROM/ROM, 2K of 2114 RAM, and an R6522 VIA. The 
SBC is ideal for applications which are form-factor sensitive because of 
its rather compact board size (about 4" x 6.5") and also for applications 
requiring several additional boards because of its compatability with all 
the other Microflex 65 cards. 

The 32K dynamic RAM is addressable in 4K sections and features a 
scheme of refreshing that is complete transparent to the rest of the sys¬ 
tem. Write protect and bank select switches are included for increased 
versatility. An on-board DC-DC converter furnishes the necessary -5 
volts so only -1-5 and +12 are required from the Microflex 65 bus. 

The GPIO (General Purpose Input/Output) module contains two R6522 
VIA devices which provide four 8-bit I/O ports and eight control lines. 
The 8-bit ports are fully buffered as are the control lines. 

The data direction of each I/O port can be under either manual or soft¬ 
ware control. 

These boards are available in either edge connector or Eurocard versions. 
For further information contact your local Rockwell sales office. 


PL/65 NOW AVAILABLE 

PL/65, an intermediate level system-implementation language, is now 
available for the AIM 65. 

PL/65 is designed to improve the productivity of the programmer and to 
increase program readability. Control statements such as conditional ex¬ 
ecution (IF-THEN-ELSE), conditional looping (FOR-TO-BY), coupled 
with a simplified block capability, support structured program design 
techniques. 

The PL/65 compiler generates R6500 assembly language source code. In 
addition, PL/65 allows assembly language instructions to be incorpo¬ 
rated in-line in portions of programs where timing or code optimization 
requirements are critical. The result is a system implementation lan¬ 
guage which has the power and flexibility of assembly language and the 
structuring potential of a high-level language. 

The AIM 65 PL/65 compiler is contained in two 4k byte ROMs which 
plug directly into the AIM 65 BASIC sockets. For further information, 
contact Electronic Devices Division, Rockwell International, P.O. Box 
3669, Anaheim, CA 92803, (714) 632-3729 or your local Rockwell sales 
office. 



Page 4 


INTERACTIVE 


SOLVING SIMULTANEOUS 
EQUATIONS USING BASIC 

George Sellers 

(ED. NOTE: The first time I entered this program into my system, / tried 
to make it ‘Took nice" by inserting spaces between commands and op¬ 
erands. The program wouldn't run until / eliminated all unnecessary 
spaces (it ran out of room). So type the program in EXACTLY as shown.) 

Here is a BASIC program you might find of interest for solving simul¬ 
taneous equations with up to 20 equations and 20 unknowns. It is directly 
transcribed from the FORTRAN program in reference (1) and is based 
on what is called the Gauss-Jordan Method with maximum pivot feature. 

The program just fits into 4K of RAM on the AIM 65. The following 
table shows run times for various numbers of unknowns: 

NUMBER OF EQUATIONS RUN TIME IN SECONDS 

3 1.325 

5 3.015 

10 14.325 

20 92.485 


The input is organized with the coefficients of each equation being a row ^ 
of matrix “A” which is called the coefficient matrix. The right side of 
the equations are organized into a column which is called the constant 
matrix “B.” The solutions are also organized into a column and this 
column is called the solution matrix “X.” 

Thus A*X = B in matrix algebra. 

The data are entered into the program by way of the prompts for each 
column. The coefficient matrix can then be printed out to verify the 
accuracy of the input and corrections can be made if necessary. Finally, 
the constant matrix can be input and after a short time, the solution 
matrix is printed. 

If matrix notation is not familiar to you, I suggest you check an advanced 
algebra text. 

This technique forms the basis of many important types of problems i.e. 
network theory, regression analysis, linear programming (see BYTE 
magazine for most recent method of trying to solve large systems of 
linear equations) and economics (see Sept ’80 Scientific American pg 
207) to name a few. 

1) Golden, James T., FORTRAN IV PROGRAMMING AND 
COMPUTING, Prentice Hall, Englewood, N.J. 1965 
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170 F0RK=1T0NM 

:l. 8 0 IF < A X A B S ( A < K r I ) ) ) > = 0 G 0 T 0 215 
19 0 IF C K < K) > 0 00 T 0 215 
200 LC<I)=K 
210 AX :;:: ABS ( A ( K y I) ) 

215 NEXTK 

2 20 IF A B S < A X > < *10 E - 6 G 0 T 0 5 0 0 
230 CK(L>=1.0 
240 L*LC<1) 

250 CK ( L. )=1.0 
260 FOR J~1TGNM 
2 7 0 IF ( L • J ) ~ 0 00 T 0 3 0 0 
280 F":•••• A ( J i I) / A (I... v 1 > 

290 FORK=IPTONP 

2 9 5 A ( J y K) = A ( J y K > + F * A (I... v K ) I N E X T K 
300 NEXTJ 
310 NEXTI 

315 PRINT"SOLUTION IS' 

320 FORI-lTONM 
330 l.. = LC(l) 

340 X ( I ) ~ A < I... y NHf 1) / A < L y I ) 

350 PRINI“X( " yIy “ )“JX <I) 

360 NEXTI 
370 END 

5 0 0 P RIN T " A X < 10 E - 6 ' I E N D 
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LEARN TO TOUCH TYPE 

(ED. NOTE: I LIKE this program! Talk about CAI (Computer Aided In¬ 
struction). The sound output from the last issue could easily be adapted 
into TOUCH to signal the operator he made a boo-boo.) 

Mel Evans 
1027 Redeemer 
Ann Arbor, MI 48103 

If you use your AIM 65 keyboard much at all, you can increase both the 
speed and the accuracy of your input by learning to touch-type. All it 
takes is the right kind of practice, and after you’ve got it, you’ll be able 
to input as fast as you can read the characters, and with almost no typos. 
And here’s the best part: you don’t have to go to school to get ‘ ‘the right 
kind of practice.” With the TOUCH program listed in Fig. 1, your 
AIM 65 can give it to you whenever, and as long as, you feel like 
practicing. 

TOUCH is a modification for AIM 65 of a BASIC program written by 
Art Armstrong (“Thirty Days to a Faster Input,” BYTE, Dec. 79, 
p.250). If you try TOUCH and decide you really want to use it, read 
Armstrong’s article first: it is full of good tips on how to speed up the 
learning process. 

A sample run is shown in Fig. 2. The program first asks for a set of char¬ 
acters to be used in the practice session. Type in any sequence of printing 
characters, ending with RETURN. (Start small, with ASDFG.) The pro¬ 
gram prints the selected character set, and then asks for the length and 
number of “words” to be used in the practice session. It then presents 
the first “word”: a string of characters randomly chosen from the prac¬ 
tice set. 

Put your fingers on the “home” keys (ASDF left, JKL; right, as shown 
in the BYTE article). Your goal is to type the word without peeking at 
the keyboard, but peek if you must at first. After typing a character, re¬ 
turn to the “home” keys for reference. As Armstrong says, “The im¬ 
portant thing is to always use the same finger for each key. Otherwise the 
process cannot become automatic.” 

The teaching technique is “operant conditioning”: the instant you press 
a wrong key, the printer tells you about it, and you start over with a new 


word. After the last word, the program prints your score and a list of the ^ 
characters you missed (and number of misses each). You can use this list 
to determine which characters to emphasize in the next session, and you 
can emphasize them as shown in the second session in Fig. 2. Notice that 
the H key was typed five times into the practice set. This makes H occur 
five times as often as the other characters in the resulting words. 

With printer ON, you get a full record of each session, as in Fig. 2. With 
printer OFF, the display is the same, but only mistakes, score, and error 
list are printed. (This is done by using PRINT for display-only and 
PRINT! for display-and-print.) 

Most of the differences between TOUCH and Armstrong’s program are 
just conversion to the AIM 65 dialect of BASIC, but there are a few 
functional changes. The printout option mentioned above is one. I didn’t 
incorporate his “echo” feature: it would use a lot of paper on the AIM 65 
printer, and like he says, it’s better practice not using it. Another change: 
after each session, TOUCH asks you if you want another session with the 
same practice characters. To quit, on SAME KEYS AGAIN? type N, 
and on WHICH KEYS? hit FI. Now you’re back in BASIC entry mode. 

For reading single keys, TOUCH uses the GET instruction, which is 
mentioned, but not fully explained, in the AIM 65 BASIC manual. GET 
reads the keyboard and returns with a character. If no key is down, it 
returns with the null character. If a key is down, it returns with that sin¬ 
gle character. If you GET again while the key is still down, it does not 
return until key up, and then returns with the null character. * 

This makes GET easy to use for entering strings. Observe lines 15-50 in 
the listing (Fig. 1). Until you press a key, line 20 repeatedly gets the null 
character and line 30 repeatedly adds it to C$ (which of course does not 
change C$). When you finally hit a key, it gets added to C$ just once: 
GET then waits until you release the key. 

But watch out! Observe line 310. It GETs B$; but then, if it is the null 
character, GETs again. Otherwise it would proceed to line 350, find that 
B$ (the null character) didn’t match the word character, and give you an 
error. Try deleting that IF, and you will get a score of 0% before you can 
reach the first key! 

The program as listed runs in about 1350 bytes of RAM. If you omit 
REMs and spaces, it will probably run on a IK AIM 65. Now then. 
Don’t just sit there. Read Armstrong’s article, and then get busy! 


2 REM LET AIM TEACH YOU TOUCH-TYPING 

4 REM GRIG* BY ART ARMSTRONG (BYTE* DEC 1979 PAGE 250) 
6 REM AIM MOD BY MEL EVANS (5/11/80) 

8 REM 

10 PRINT"WHICH KEYS?" 

12 REM BUILD KEY STRING 
15 C*="“ 

20 GET A$ 

22 REM EXIT ON CR 

25 IF A*=CHR*(13> THEN 60 
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30 C*=C*+A* 

50 GOTO 20 

55 REM STRING BUILT SO PRINT IT 
60 PRINTOUT PRINT" “ 

70 L“LEN( C$ ) t DIM A ( L.) 

80 INPUT "WORD SIZE'JWL 
90 INPUT "HOW MANY WORDS“5 NT 
95 REM CLEAR SCORE COUNTERS 

100 nr=o:np=o 

105 REM CLEAR ERROR COUNT 

no for 1=1 to l:a< i )=o:next 

200 FOR T=1 TO NT 
205 REM BUILD WORD # T 
210 NP-NPTWL 
220 A$~ “ “ 

230 FOR 1=1 TO WL 

235 REM SELECT RANDOM CHARACTER 

240 P=INT(L*RND<1)+l) 

250 A$=A*+MID$ < C$» P »1) 

260 NEXT I 

265 REM PRINT WORD 

270 PRINT A* 

300 FOR 1=1 TO WL 

305 REM READ KEY % CHECK FOR MATCH 

310 GET B$!IF B$="" THEN 310 

350 IF B*OMID*<A*» I r 1 ) THEN 500 

360 NR=NR+1 

370 NEXT I 

380 NEXT T 

390 REM COMPUTE & PRINT SCORE 

400 PRINT" ■:PRINT!'SCORE:"?INT(100#NR/NP)$“ %" 

402 IF NR=NP THEN 414 

4 05 PRINT!"E R R 0 R St” X F0 R I = 1 T 0 L JIF A(I)=0 T H E N 410 
4 0 7 P RIN T ! MID $ < C * r I r 1 ) i A < I) 

410 NEXT I 
414 PRINT" " 

416 IN P U T " S A M E K E Y S A G AIN" f A * 

420 IF LEFT$(A$ y1) = “Y" THEN 100 
430 RUN 

495 REM UPDATE ERROR COUNT 
500 FOR J=1 TO L 

510 IF MID * ( C $ » J v 1) < > MID $ ( A * » I»1 ) T H E N N E X T t G 0 T 0 5 2 0 
515 A<J)=A<J>+1 

520 PRINT! ■ X*** ERROR ON “ t MID*(A$ »I 1 1 ) 

525 REM WAIT A BIT & THEN RETURN 
530 FOR 1 = 1 TO 300 1 NEXT 
540 GOTO 380 
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BASIC TIME SAVER 


Gordon Smith 
Rockwell International 

(EDITORS NOTE: According to Gordon, the basis for the program 
came from a similar program published in TARGET which he 
modified quite extensively and added auto-line numbering. This 
article was reprinted from the Rockwell Anaheim Hobby Club 
Newsletter.) 

This issue I have what I think is a real goody for all of you who are 
using AIM BASIC and are either marginal or lazy typists or both - I 
suspect that includes most of us. I have named the program “BASIC 
HELPER” because that is what it does. It is a combination automatic 
line numberer and common basic command automatic typist. 

I will describe usage of the program first and then how it works. The 
program occupies the top two pages of a 4K AIM (0E00-0FFF). Con¬ 
sequently when BASIC is entered via the “5” Key, you must 
respond to the “MEMORY SIZE” question with 3584 or less. This 
gives you 3054 bytes free for keying-in segments of your program. 
Note that this places no limitation on the size of the program you are 
keying-in, because as these 3054 bytes are filled they may be dumped 
on tape. Then the next segment with its proper line numbers may also 
be keyed in after typing “NEW.” 

As each segment fills memory it is dumped on tape and the next seg¬ 
ment then keyed-in. This is permissible on AIM because unlike PET 
and APPLE, loading a program from tape does not automatically 
wipe out the old program. It appends the later program to the earlier 
one and only if both segments have some common line numbers is 
there any conflict. In this case any common numbered lines from the 
last blocked tape will be the lines that survive. 

Sooo - this is an unusual machine language program used with 
BASIC because it ultimately takes none of the BASIC space. 

After the BASIC is enabled, exit via ESCAPE and load the BASIC 
HELPER PROGRAM (or VISA VERSA). I use the FI and F3 keys 
to activate automatic line numbering with shorthand and F2 to acti¬ 
vate only the shorthand. This later option is used when keying in 
someone else’s program (or fixes to your own) when nice even incre¬ 
ments between lines are not achievable. 

With the FI keys the display asks “FROM = ” to which you respond 
with the starting line number desired (delete is allowed or the last four 
hex characters will be used-no leading zero’s required). Hit “space” 
or “RETURN” and the display will prompt with “INC= .” At this 
point key-in the increment you want and hit “space” or “RETURN” 
and you are in WARM START BASIC with the starting line number 
already showing. Enter the rest of the line, hit RETURN, and the new 
line number is there ready for you. 


This automatic line numbering is handy but it is only part of the story. 

By using the control key and any of the alphabet keys (Except M) and 
F2 and F3 you can also get an automatic entry of what I think are the 
most used, longest, or messiest-to-type BASIC commands. For 
instance Control I gives you “INPUT,” Control L gives you 
“LEFT$(” etc. There are even some split BASIC commands. Con¬ 
trol 0 gives you “ON” then you type the variable name or expression 
without any spaces. When you key in “space,” the program com¬ 
pletes the GOTO portion of the ON—GOTO statement. Control F3 
gives ON—GOSUB and Control T gives you IF—THEN. 

The complete list of shorthand commands and mnenomic aids for 
helping to remember them are given in a table following the program 
listing and command tables. 

As I see it there are three major benefits of this program: 

1) It makes it much faster to type 

2) There are many fewer typing errors 

3) The correct form for these commonly used statements are either 
input or prompted ($ in strings aid the left (as a prompt)). 

The program works as follows: The FI key jumps to 0E00 which 
clears the display and then calls the “FROM” subroutine. The line 
number is stored in two places OFFB,C where it is held for updating 
and OFFl,2 for processing to input it to BASIC which then displays ^ 
it. The segment starting at 0E18 inserts a space and then sequentially 
outputs INC by three output subroutine calls. 

The JSR EAAE at 0E27 is the ADDIN subroutine which is not 
described in the manuals. It outputs “ = ” and waits for four (more or 
less) hex characters. If less it assumes leading zero; if more it accepts 
the last four. The increment value may be as many as four digits and 
is stored in OFF3,4. In all of the above cases the data is stored in high 
byte-low byte sequence (it is not an address in the conventional 
sense). 

The segment of the program from OE39 through OE3F sets a Flag in 
OFF7 to indicate if the auto increment mode is ON (00) or OFF ( 
(FF). The F2 entry point is at 0E3D. 

The group of instructions from OE42 through 0E4E set up the user 
input mode (55 in A412 and the user input vector to location OE62 in 
Location 0108,9). 

The next group through OE5E initializes conditions so that the last 
character output (OFF5) was apparently a carriage return so that the 
line number will be output if that mode is active. Any value other 
than 20 in OFFD is OK-20 indicates that a split command has had the 
first part entered and is waiting for the “space” code to enter the sec¬ 
ond segment. 

/ 

The 00 in OFF6 indicates that the program is not in the middle of 
inputing a line number. 


^The segment named ‘USER PROCESSOR’ is the point where the 
user input is vectored to. In BASIC at this point, the Y register is 
pointing to the BASIC input buffer location for the next key-in so it 
must be saved (in this case on the stack). The USER input may have 
to turn something on when it is entered the first time so the first time 
the carry is clear on subsequent entries the carry must be set. In this 
case it doesn’t make any difference so that I could have left out the 
instructions in OE64, 66, and 67 and the SEC instructions in OE92 
and OECF. But I left them in because I am trying to teach some with 
this column too. 

The mode decode function works as follows: The test at OE6E deter¬ 
mines if the auto-line option is desired-if it is the test at OE72 deter¬ 
mines if it is necessary to output a line number or if we are in 
process-if the answer is yes we execute the segment at OE94. We will 
come back to this later. The test at OE76 determines if we are in pro¬ 
cess of generating a command. These in-process tests are necessary 
because only one character is generated and supplied to BASIC and 
BASIC comes back for the next one. If we are in process of 
generating a command, the jump at OE78 is executed. Otherwise, we 
use the CUREAD subroutine to read a character from the keyboard 
and then save it in the last character buffer, OFF5. 

This character must be examined to see if it is a control-alpha (OE83) 
to start outputing a new command at OEF9 or if it matches (20 
^ matching 20) the split command wait indicator in OFFD (OE88). If 
so, the JMP OFIA in OE8A is executed. If it is none of these, it is an 
old-fashioned, plain ordinary key stroke input. In this case BASIC’s 
Y register is restored, the input character recovered, and the RTS 
takes it back to the BASIC input processing. 

The Auto increment processing is performed as follows: The test in 
OE97 determines if this is the first digit to be processed. If it is, the 
Line input in Process Flat at OFF6 is set to 4 and and also the charac¬ 
ter count is checked for zero (OEA4). If it is, the segment of instruc¬ 
tions from OEOl through OEF7 restores flags and increments (in 


decimal) the line number for the next line. This program then returns 
to look for the next input character. 

If it was not the final pass, the segment from OEA6 through OEBD 
shifts the next digit (most significant digit first) into OFFO. OEB4 
counts the number of digits down by one and OEC2 through OEC7 
converts it to ASCII and holds it in OFFA for output after the BASIC 
Y register is restored OECA through OEDO. 

If the character input was a control character (value less than IF) the 
program will commence from OEF9. Since this entry is for the start 
of a new command the code input 01 to IE will be used as a pointer to 
the start of text. It is moved to the Y register and is used to point to a 
byte in Table 1 “POINTERS TO START OF EACH COMMAND.” 
This is accomplished in locations OEF9 through OEFA. That byte is 
then used to index the text table. ‘COMMANDS IN ASCII,” Table 
2. The Y value is then incremented and saved for the next pass. If the 
input byte was 00 (0F07), it indicates “end of text” so some flags are 
restored and the next key is input (OF27 to OF2c). If the input byte 
was 20 (OFOB) it indicates a split command so the wait code (20) is 
stored in OFFD and the next key is input (OF14-OF17). If neither of 
these, the code is output using the sequence of instructions OEC7- 
OEDO in the auto- line number output section. 

If the 20 matches 20 test in OE88 indicates that the second segment of 
a split statement is to be inserted, the program starting at OFIA 
through OF25 is executed. This cancels the “wait” Flag at OFFD 
and puts a low value (00) into the last command byte (OFF5) so that it 
indicates a shorthand command in-process and then loads the pointer 
for the next character of the command. It then continues to execute as 
if it were a normal shorthand command. 

This is a longer and more complex program than I have generated for 
this column before but I think that you will like it. I think I will have 
it loaded whenever I am keying-in a BASIC program. It saves so 
much time and aggravation. 


SHORTHAND COMMANDS AND MNEMONIC AIDS 


A = ABS( 

B = TAB( TABBBB 
C = MID$( CENTERS 
D = DATA 

E = RIGHT$( ENDS 

F = FOR 

G = GOTO 

H = LEN( HOW LONG 

I = INPUT 

J = GOSUB JUMPSUB 

K = GET GET KEY 

L = LEFTS! 

M = IS NOT USABLE 

N = NEXT 

O = ON+ + + GOTO 


P = POKE 
Q = RND( QUANTITY 
R = RETURN 

S = STR$( 

T = IF+ + + THEN TEST 
U = USR( 

V = VAL( 

W = INT( WHOLE VALUE 
X = RESTORE X-OUT READ 

Y = READ PARAMETER 
Z = STEP SIZZZE 

FI = IS NOT USABLE 
F2 = DEFFN FUNCTION 
F3 = ON+ + +GOSUB 


V 


010C 4CJMP 0E00 

0E83 

90 BCC 0EF9 74 

OFOF 

AC LDY 

OFFE 



010F 4CJMP 0E3D 

0E85 

CD CMP OFFD 

0F12 

DO BNE 

OEFE 

EA 


0112 4C JMP 0E00 

0E88 

DO BNE 0E8D 03 

0F14 

8D STA 

OFFD 




0E8A 

4C JMP 0F1A 

0F17 

4C JMP 

0E7B 



BASIC HELPER PROGRAM 

0E8D 

68 P UK 

0F1A 

A9 LDA 

#00 



0E00 20 JSR E9F0 

0E8E 

A8 TAY 

0F1C 

8D STA 

OFFD 



0E03 20 JSR E7A3 

0E8F 

AD LDA 0FF5 

0F1F 

8D STA 

0FF5 



0E06 AD LDA A41C 

0E92 

38 SEC 

0F22 

AC LDY 

OFFE 



0E09 8D STA 0FF2 

0E93 

60 RTS 

0F25 

DO BNE 

OEFE 

D7 


OEOC 8D STA OFFC 



0F27 

A9 LDA 

#20 



OEOF AD LDA A41D 

AUTO-INCREMENT 

0F29 

8D STA 

0FF5 



0E12 8D STA OFFB 

0E94 

AD LDA 0FF6 

0F2C 

4C JMP 

0E7B 



0E15 8D STA 0FF1 

0E97 

DO BNE 0EA1 08 









0E99 

A9 LDA #04 

POINTERS TO START OF EACH 

INPUT INCREMENT 

0E9B 

8D STA 0FF6 

<M> = 

= 0FD1 

00 

01 

06 

OB 

0E18 20 JSR E83E 

0E9E 

8D STA 0FF8 

< 

> 

0FD5 

11 

16 

IE 

22 

0E1B A9 LDA #49 

0EA1 

AD LDA 0FF8 

< 

> 

0FD9 

27 

2C 

32 

38 

0E1D 20 JSR E97A 

0EA4 

FO BEQ 0ED1 2B 

< 

> 

OFDD 

3C 43 

45 

4A 

0E20 A9 LDA #4E 

0EA6 

A9 LDA #00 

< 

> 

0FE1 

52 

57 

5C 

63 

0E22 20 JSR E97A 

0EA8 

8D STA OFFO 

< 

> 

0FE5 

69 

71 

76 

7B 

0E25 A9 LDA #43 

OEAB 

A9 LDA #04 

< 

> 

0FE9 

80 

88 

8D 

8D 

0E27 20 JSR E97A 

OEAD 

8D STA 0FF9 

< 

> 

OFED 

8D 94 

9A 


0E2A 20 JSR EAAE 

OEBO 

18 CLC 








0E2D AD LDA A41C 

0EB1 

2E ROL 0FF2 

COMMANDS IN 

ASCII 



0E30 8D STA 0FF4 

0EB4 

2E ROL 0FF1 

<M> = 

= 0F30 

41 

42 

53 

28 

0E33 AD LDA A41D 

0EB7 

2E ROL OFFO 

< 

> 

0F34 

00 

54 

41 

42 

0E36 8D STA OFF3 

OEBA 

CE DEC 0FF9 

< 

> 

0F38 

28 

00 

4D 

49 


OEBD 

DO BNE OEBO FI 

< 

> 

0F3C 

44 

24 

28 

00 

BYPASS AUTO LINE NO. 

OEBF 

CE DEC 0FF8 

< 

> 

0F40 

44 

41 

54 

41 

0E39 A9 LDA #00 

0EC2 

AD LDA OFFO 

< 

> 

0F44 

00 

52 

49 

47 

0E3B FO BEQ 0E3F 02 

0EC5 

69 ADC #30 

< 

> 

0F48 

48 

54 

24 

28 

0E3D A9 LDA #FF 

0EC7 

8D STA OFFA 

< 

> 

0F4C 

00 

46 

4F 

52 

0E3F 8D STA 0FF7 

OECA 

68 PLA 

< 

> 

0F50 

00 

47 

4F 

54 


OECB 

A8 TAY 

< 

> 

0F54 

4F 

00 

4C 

45 

SET UP USER INPUT 

OECC 

AD LDA OFFA 

< 

> 

0F58 

4E 

28 

00 

49 

0E42 A9 LDA #55 

OECF 

38 SEC 

< 

> 

0F5C 

4E 

50 

55 

54 

0E44 8D STA A412 

OEDO 

60 RTS 

< 

> 

0F60 

00 

47 

4F 

53 

0E47 A9 LDA #62 



< 

> 

0F64 

55 

42 

00 

47 

0E49 8D STA 0108 

PREPARE FOR NEXT LINE 

< 

> 

0F68 

45 

54 

00 

4C 

0E4C A9 LDA #0E 

0ED1 

A9 LDA #20 

< 

> 

0F6C 

45 

46 

54 

24 

0E4E 8D STA 0109 

0ED3 

8D STA 0FF5 

< 

> 

0F70 

28 

00 

OD 

00 


0ED6 

A9 LDA #00 

< 

> 

0F74 

4E 

45 

58 

54 

PARAMETER SET UP AND GO TO WARM START 

0ED8 

8D STA 0FF6 

< 

> 

0F78 

00 

4F 

4E 

20 

0E51 A9 LDA #0D 

OEDB 

F8 SED 

< 

> 

0F7C 

47 

4F 

54 

4F 

0E53 8D STA OFF5 

OEDC 

18 CLC 

< 

> 

0F80 

00 

50 

4F 

4B 

0E56 8D STA OFFD 

OEDD 

AD LDA OFFC 

< 

> 

0F84 

45 

00 

52 

4E 

0E59 A9 LDA #00 

OEEO 

6D ADC 0FF4 

< 

> 

0F88 

44 

28 

00 

52 

0E5B 8D STA 0FF6 

0EE3 

8D STA OFFC 

< 

> 

0F8C 

45 

54 

55 

52 

0E5E 4C JMP B003 

0EE6 

8D STA 0FF2 

< 

> 

0F90 

4E 

00 

53 

54 


0EE9 

AD LDA OFFB 

< 

> 

0F94 

52 

24 

28 

00 

USER/PROCESSOR 

OEEC 

6D ADC 0FF3 

< 

> 

0F98 

49 

46 

20 

54 

0E62 98 TYA 

OEEF 

8D STA OFFB 

< 

> 

0F9C 

48 

45 

4E 

00 

0E63 48 PHA 

0EF2 

8D STA 0FF1 

< 

> 

OFAO 

55 

53 

52 

28 

0E64 BO BCS 0E68 02 

0EF5 

D8 CLD 

< 

> 

0FA4 

00 

56 

41 

4C 

0E66 68 PLA 

0EF6 

B8 CLV 

< 

> 

0FA8 

28 

00 

49 

4E 

0E67 60 RTS 

0EF7 

50 BVC 0E7B 82 

< 

> 

OFAC 

54 

28 

00 

52 




< 

> 

OFBO 

45 

53 

54 

4F 

MODE DECODE-SUBSTITUTE OR READ 

SHORTHAND COMMAND INSERTION 

< 

> 

0FB4 

52 

45 

00 

52 

0E68 AC LDY 0FF5 

0EF9 

A8 TAY 

< 

> 

0FB8 

45 

41 

44 

00 

0E6B AD LDA 0FF7 

OEFA 

B9 LDA 0FD1,Y 

< 

> 

OFBC 

53 

54 

45 

50 

0E6E DO BNE 0E74 04 

OEFD 

A8 TAY 

< 

> 

OFCO 

00 

00 

00 

44 

0E70 CO CPY #0D 

OEFE 

B9 LDA 0F2F,Y 

< 

> 

0FC4 

45 

46 

46 

4E 

0E72 FO BEQ 0E94 20 

0F01 

C8 INY 

< 

> 

0FC8 

00 

4F 

4E 

20 

0E74 CO CPY #1F 

0F02 

8C STY OFFE 

< 

> 

OFCC 

47 

4F 

53 

55 

0E76 BO BCS 0E7B 03 

0F05 

C9 CMP #00 

< 

> 

OFDO 

42 





0E78 

0E7B 

0E7E 

0E81 


4C JMP OFOF 
20 JSR FE83 
8D STA 0FF5 
C9 CMP #1F 


0F07 

0F09 

OFOB 

OFOD 


FO BEQ 0F27 
C9 CMP #20 
FO BEQ 0F14 
DO BNE 0EC7 


(EDITOR’S NOTE: If you’d like a set of stick-on labels for the basic 
one-key entry program, send $1 to Ron Riley, POB 4310, Flint, 
Mich. 48504. These Labels are printed on adhesive-backed stock 
with all the proper Basic commands printed on them.) 


INTERACTIVE 


PROM PROGRAMMER CARD 
FOR AIM 65 

A PROM Programmer and Code Editor (CO-ED) module is now avail¬ 
able as a plug-on peripheral for the AIM 65 printing microcomputer from 
Rockwell. 

The PROM memory devices programmed with the new module may then 
be used with any 6500-based system, including AIM 65, Microflex 65, 
and SYSTEM 65. 

The module provides PROM check, read and verify functions in addition 
to programming. Data load, verify and dump, each with offset, and an 
object code editor (CO-ED) are additional features included in the mod¬ 
ule’s built-in ROM firmware. CO-ED controls a program pointer and can 
search, disassemble and modify R6500 object code programs. 


R6551 ACIA CHIP NOW 
AVAILABLE 

The R6551 Asynchronous Communication Interface is now available 
from Rockwell. This new device offers several advantages over older 
ACIA designs. The main advantage is that the R6551 contains its own 
on-chip baud rate generator with 15 program-selectable rates from 50 
baud to 19,200 baud. The only additional component required is a stan¬ 
dard 1.8432 MHZ crystal. 

The R6551 has programmable word lengths of 5, 6, 7, or 8 bits; even, 
odd, or no parity; and 1, 1 V 2 or 2 start bits. Besides the normal interface 
control lines (RTS-Request To Send, CTS-Clear To Send, and DCD- 
Data Carrier Detect) the R6551 provides two additional lines, to further 
enhance the modem interface. These two lines are DTR-Data Terminal 
Ready (which indicates the R6551 status to the modem) and DSR-Data 
Set Ready (indicates the status of the modem to the R6551). 

The built-in programmable baud rate generator offers certain advantages 
to the system designer. Since fewer external components are required for 
boards designed around the R6551, more compact and/or more densely 
designed systems are possible. This in turn translates to a cost savings 
which can become very substantial as the quantity of systems to manu¬ 
facture increases. 
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The PROM programmer CO-ED module, part number A65-901, plugs 
directly into the expansion connector of the AIM 65 microcomputer. The 
module includes IK byte of R2114 static RAM which, when used with 
the 4K RAM AIM 65 model, allows single-pass programming of 4K X 
8 PROMs. It also includes internal logic to select PROM programming 
characteristics for the Intel 2758, 2716, or 2732, or the TI 2508, 2516 or 
2532 without switch or jumper changes. 

The module requires only a single supply voltage, +5 VDC (a 0.7 amp, 
which is usually available from the power supply for the host AIM 65. 
Appropriate PROM programming voltage levels are generated by an on¬ 
board DC-DC converter. 

The module measures approximately 4.4 inches wide by 6.7 inches long 
and is fully assembled, tested and warranted. 

For more information contact the Electronic Devices Division of Rock¬ 
well International, P.O. Box 3669, Anaheim, CA 92803. Telephone 
(714) 632-3729 or your local Rockwell sale office. 


NEW APPLICATION NOTE 

A new application note entitled PRINTER CONTROL WITH THE 
R6522 is (document #256) is now available from Rockwell. This note 
describes how the AIM 65 can be used to directly control all the func¬ 
tions of a dot matrix printer mechanism through the on-board user R6522 
VIA chip. The printer mechanism chosen is the Two-Day Corporation 
80 column bidirectional 10600 series. 

This 24 page app. note actually contains two complete software/hard¬ 
ware interface schemes—one for each of the two printer mechanisms 
available from the Two-Day Corp. 

One of the models (the 10600A) has a synchronous motor drive while the 
other (the 10600B) has a stepper motor drive and an independent paper 
feed. 

For a copy of this or other app. notes write: Literature Request, 
Rockwell International, Box 3669 RC55, Anaheim, CA 92803. Be sure 
to specify the document numbers. 


For data sheets and more information on the R6551 ACIA contact your 
local Rockwell sales office. 
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lYTLRYCTIVF 


INTERRUPT DRIVEN 
KEYBOARD 

Marvin DeJong 
Pt. Lookout, MO 

(Ed. note-Although the author cites amateur radio as an example ap¬ 
plication for an interrupt driven keyboard , this technique is just as re¬ 
lev ent in the possible industrial uses of the AIM 65. Interrupt driven 
systems are becoming increasingly useful in data gathering applica¬ 
tions as well as machine control areas.) 

The AIM 65 Monitor polls the AIM 65 keyboard for key depressions by 
calling subroutines. These subroutines wait for a key to be depressed be¬ 
fore continuing to execute the commands that have been entered or be¬ 
fore continuing to process the data that have been entered. There are 
certain situations in which this treatment of the keyboard is undesirable. 
In this application note such a situation is described, and a routine to read 
the keyboard on an interrupt basis is described. 

Suppose an amateur radio operator wishes to use the AIM 65 to send 
either Morse code or RTTY (radioteletype). The AIM 65 monitor rou¬ 
tines could be used for this, but the send routine would have to wait for 
a key depression before it could send the character, and the operator 
would have to wait for the send routine to finish sending the character 
before he could type in a new character. The usual technique calls for a 
buffer that stores the characters typed on the keyboard, and concurrently 
sends the characters at a prescribed speed. Thus, the operator can type 
in characters as quickly as he can type, and the send routine empties the 
buffer at the prescribed speed. This form of keyboard operation is diffi¬ 
cult, if not impossible, to achieve with the AIM 65 monitor software 
which, in addition to reading the keyboard, must also debounce the keys. 

An alternative approach is to let the send program (or any other program 
in which this interrupt approach is used) continue operating, but use a 
regular interrupt to scan the keyboard to see if any new characters have 
been entered. If a new character has been entered on the keyboard, it can 
be stored in a buffer to await its turn to be processed by the main pro¬ 
gram. If no new character has been keyed, the interrupt routine branches 
around the buffer storage instructions. 

The listings given here form a routine that will read the AIM 65 keyboard 
on an interrupt basis. The initialization routine sets up the interrupt vec¬ 
tor to point to the interrupt routine at SOBFF (of course, the locations of 
all of these routines may be changed). Next the initialization routine sets 
up the T1 timer on the user's 6522 to produce equally spaced interrupts, 
at five millisecond intervals. (Longer intervals can also be used, but 
shorter intervals may produce keybounce errors.) The last instruction in 
the initialization routine produces an infinite loop that simulates the 
user's main program, a Morse code send program for example. 

The interrupt routine starting at SOBFF is very similar to the AIM 65 
GETKEY subroutine in the AIM 65 monitor. Most of the coding is taken 


from that routine, with some important modifications to make it operate 
on an interrupt basis. Note that all the registers are saved by the interrupt 
routine. Also note that the interrupt routine contains a JSR SODOO in¬ 
struction. If a key depression is detected, then the accumulator contains 
the ASCII representation of the key just prior to the JSR SODOO in¬ 
struction. The subroutine at SODOO is expected to place the accumula¬ 
tor contents in a memory location where it can be processed by the main 
program, a buffer for example. 

Finally, we have included a display routine at SODOO that displays the 
key just pressed on the AIM 65 display. This routine is included to test 
the initialization and interrupt routines. It has no other use. 


9 1/0 

UTIL =*A004 
UT1CH =*AC05 
UT1LL =*A006 
UARC =*AOOB 
UIER =*AOOE 
IRQV2 =*A404 
CPIY =*A42A 
CPI Y.1. =*A42B 

ROLLFL. =$A47F 
DRA2 =$A480 

DRB2 =*A482 
9 MONITOR SUBROUITNES 
ONEKEY ED05 

0NEK2 =$ED0B 
0UTDD1 =*EF7B 
PHXY =*EB9E 
PL.XY =*EBAC 
R0W1 «=$F421 


2000 





*~$0E00 

0E00 






0E00 

A9 

FF 



EDA #<INTRN 

0E02 

8D 

04 

A4 


STA IRQ02 

0E05 

A 9 

OB 



EDA #>INTRN 

0E07 

8D 

05 

A4 


STA IRQV2+1 

OEOA 

78 




SEI 

OEOB 




V 


OEOB 




9 SE1 

[' T18CB1 INT FEAG 

OEOB 

A 9 

CO 



EDA #$C0 

OEOB 

8D 

OE 

AO 


STA UIER 

0E10 




P 


0E10 




? 


0E10 




mSEI 

f T1 IN FREE 

0E10 




JRUNNING MODE 

OEIO 

A9 

40 



EDA #$40 

0E12 

8D 

OB 

AO 


STA UARC 



IITIIIACIIVI 
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,0E15 




P 

0E15 




PSET T1 LATCHES 

0E15 

A9 

88 


LDA #$88 

0E17 

8D 

06 

AO 

STA UT1LL 

0E1A 

A9 

13 


LDA #$1.3 

OE.1.C 

8D 

05 

AO 

STA UT1CH 

OE1F 

58 



CL I 

0E20 




? 

0E20 




?PROGRAM SIMULATION 

0E20 




ME 

0E20 

4C 

20 

OE 

JMP ME 

0E23 




*=$OBFF 

OBFF 





OBFF 




PSAVE REGISTERS 

OBFF 




INTRN 

OBFF 

48 



PH A 

OCOO 

20 

9E 

EB 

JSR F’HXY 

0C03 




P 

0C03 




P CLEAR T1. INT 

0C03 

AD 

04 

AO 

LDA UTIL 

0C06 




y 

0C06 




i SEE IF KEY DOWN 

0C06 

AD 

82 

A 4 

LDA DRB2 

0C09 

C9 

FF 


CMP #$FF 

OCOB 

FO 

07 


BEQ R001 

‘OCOD 




0 

OCOB 




PACCEPT LAST KEY 

OCOD 

OD 

7F 

A 4 

ORA R0L.LFL 

OCIO 




y 

0C1.0 




PINVERT STROBES 

OCIO 

49 

FF 


EOR #$FF 

0C12 

DO 

43 


BNE ROONEK 

0C14 




P 

0C.I4 




PCLEAR MASK 

0C1.4 




R001 

0C14 

A 2 

00 


LDX #00 

oc :i. 6 

8E 

2 A 

A4 

STX CPIY 

0C19 




5 

0C19 




PGO THROUGH KB ONCE 

0C1.9 




PAND RETURN IF ANY 

OC 19 




5 KEY 

0C19 




? Y“ROW ( 1.-8 ) S STBKEY 

0C19 




P“COLUMN * IF NO KEY 

oc:i. 9 




? Y :::: 0 y 

0C19 




STBKEY $ F F 

oc:i. 9 




y 

OC19 

20 

05 

ED 

JSR ONEKEY 

OC1C 

88 



DEY 

OC1.D 

30 

7C 


BMI NOKEY 

OC1F 




P 

0 C :l. F 




P CI-ICK CLMN 5y6y7 

OC1F 

A9 

8F 


LDA #$8F 

0C21 

8D 

80 

A4 

STA DRA2 


0C24 




P 

0C24 




yCHECK ROW 1 

0C24 

AD 

82 

A 4 

LDA DRB2 

0C27 

4A 



L.SR A 

0C28 




? 

0C28 




?IF=1y NO CTRL OR 

0C28 




PSHIFT 

0C28 

BO 

20 


DCS GETK1 

0C2A 




P 

0C2A 




P CLMN 5 y 6 y 7 ( CNTRI¬ 

0C2A 




PS H IF T L. y S HIF T R) 

0C2A 

A 2 

03 


LDX #$3 

0C2C 




y 

0C2C 




PCTRL OR SHIFTyWHICH 

0C2C 

A 9 

7F 


LDA #$7F 

0C2E 




GETKO 

0C2E 

38 



SEC 

0C2F 

6 A 



ROR A 

0C30 

48 



PH A 

0C31 




y 

0C31 




? LETS GET CTRLL OR 

0C31 




PSHIFT INTO X 

0C31 

20 

OB 

ED 

JSR 0NEK2 

0C34 

AD 

82 

A4 

LDA DRB2 

0C37 




y 

0C37 




PONLY ROW 1 

0C37 

4 A 



L..SR A 

0C38 

90 

06 


BCC GETKOO 

0C3A 

68 



PL A 

0C3B 

CA 



DEX 

0C3C 

DO 

FO 


BNE GETKO 

0C3E 




y 

0C3E 




y NO KEYy SO EXIT 

0C3E 

FO 

5B 


BEQ NOKEY 

0C40 




y 

0C40 




PGET STBKEY INTO X 

OC40 




GETKOO 

0C40 

68 



PL A 

0C41 




y 

0C41 




PCLMN INTO X 

0C41 

AD 

2B 

A4 

LDA CPIY1 

0C44 




y 

0C44 




?COMPLEMENT STRBS 

0C44 

49 

FF 


EOR #$FF 

0C46 




M 

0C46 




P CTRL OR SHIFT TO X 

0C46 

AA 



TAX 

0C47 




y 

0C47 




y SET MSK~$01 

0C47 

EE 

2 A 

A4 

INC CPIY 

0C4A 




y 

0C4A 




PNOW GET ANY KEY 

0C4A 




GETKI 

0C4A 

20 

05 

ED 

JSR ONEKEY 
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0C4D 



V 

0C71 



ySHIFT 

0C4D 



fCHCK THE ROW (1-8) 

0C71 

FO 

24 

BEG GETK7 

0C4D 

88 


DEY 

0C73 



y 

0C4E 



y 

0C73 



y CTRL? 

0C4E 



PCHCK IF CTRL OR 

0C73 

29 

10 

AND #$10 

0C4E 



ySHIFT 

0C75 



A 

y 

0C4E 

DO 

09 

BNE GETK1B 

0C75 



y N0 y GO GETK5 

0C50 



y 

0C75 

FO 

06 

BEG GETK5 

0C50 



yENTERED LAST 

0C77 

68 


PL A 

0C50 

AD 

2B A 4 

LDA CPIY1 

0C78 



y 

0C53 



y 

0C78 



v MASK OFF 2 MSB FOR 

0C53 



M 

0C78 



y CONTROL 

0C53 



5 IF CLMN 5>6yy8 DO 

0C78 

29 

3F 

AND #$3F 

0C53 



y IT AGAIN 

0C7A 



y 

0C53 

C9 

F 7 

CMP #$F7 

0C7A 



y EXIT TO DISP 

0C55 

BO 

04 

DCS GETK2 

0C7A 

4C 

98 OC 

JMP GETK8 

0C57 



y 

0C7D 



GETK3 

0C57 



yGET CTRL OR SHIFT 

0C7D 

68 


PL A 

0 C 5 7 



ROONEK 

0C7E 



y SAME I T 

CCS 7 

90 

42 

BCC NOKEY 

0C7E 

48 


PH A 

0C59 



GETK1B 

0C7F 



y 

0C59 

30 

40 

DMI NOKEY 

0C7F 



PIF ALPHA CHARS DO 

0C5B 



GETK2 

0C7F 



y NOT SHIFT 

0G5B 

EA 


NOP 

0C7F 

29 

40 

AND #$40 

0C5C 

EA 


NOP 

0 C 81 

DO 

14 

BNE GETK7 

0C5D 

EA 


NOP 

0C83 

68 


PL A 

0C5E 



y 

0C84 

48 


PH A 

0C5E 



PMUL..T BY 8 

0C85 



y 

0C5E 

98 


TYA 

0C85 



yONLY L.SB 

0C5F 

OA 


ASL A 

0C85 

29 

OF 

AND #$0F 

0C60 

OA 


ASL A 

0C87 



y 

0C61 

OA 


ASL A 

0C87 



y D0 NOT INTERCHANGE 

0C62 



y 

0C87 



y(SPACE) OR 0 

0C62 



y NOW A HAS ROW ADDR 

0C87 

FO 

OE 

BEG GETK7 

0C62 



y FROM ROW 1 

0C89 



y 

0C62 

A 8 


TAY 

0C89 



? A CO=$0C? 

0C63 



0 

0C89 

C9 

OC 

CMP #$0C 

o c: 6 3 



yADD CLMN TO Y 

0C8B 



y 

0C63 

AD 

2B A 4 

LDA CPIY1 

0C8B 



yYES ACC>-$OC 

0 C 6 6 



GETK3 

0C8B 

BO 

05 

BCS GETK6 

0C66 

4 A 


LSR A 

0C8D 



y 

0C67 

90 

03 

BCC GETK4 

0C8D 



y EXIT 

0C69 

C 8 


INY 

0C8D 

68 


PL A 

0C6A 

DO 

FA 

BNE GETK3 

0C8E 

29 

EF 

AND #$EF 

0C6C 



y 

0 C 9 0 

DO 

06 

BNE GETK8 

0C6C 



y GET THE Ci-IR 

0 C 9 2 



y 

0C6C 



GETK4 

0 C 9 2 



y ACO —$0C 

0C6C 

B9 

21 F4 

LDA ROW!y Y 

0C92 



GETK6 

0C6F 

48 


PH A 

0C92 

68 


PL A 

0C70 



y 

0C93 



y 

0 C 7 0 



y CTRL OR SHIFT USED? 

0 C 9 3 



y'BIT 4 = 1 

DC 70 

8 A 


TXA 

0C93 

09 

10 

ORA #$10 

0C71 



y 

0C95 

DO 

01 

BNE GETK8 

0 C 71 



yBRCH IF NO CTRL OR 

0C97 



GETK7 
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' SUPER SIMPLE 

AUTO-START 

Under normal circumstances, when power is applied to the AIM 65, the 
reset line is automatically asserted by the power-on-reset circuitry asso¬ 
ciated with the 555 timer (Z4) and the CPU starts executing the reset 
sequence contained in the Monitor ROM. 

While this sequence of events is fine for most uses, there are others, such 
as OEM installations and dedicated controller applications, which re¬ 
quire that the system comes up running a user written operating program 
without the need for any special operator intervention. 

The first solution that usually comes to mind involves the replacement of 
the Monitor ROMS. However, there is an easier way to accomplish the 
same effect without having to sacrifice all those built-in I/O drivers. 

The only restriction is that the user program must start at address $B000, 
$B003, or $D000 (corresponding to the ‘5,’ ‘6’ or ‘N’ key vectors). 

If you have the Assembler or BASIC ROMs installed in your system, try 
holding down the ‘N’ key (or ‘5’ key) while you turn on the power. No¬ 
tice how it comes up running in the assembler? 

Vln a dedicated controller application, where the keyboard isn’t being 
used, the same effect can be achieved by installing a 16-pin DIP header 


in the keyboard socket on the main board and shorting the two pins that 
correspond to the ‘5,’ ‘6’ or ‘N’ key. 

If you wish the system to automatically jump to $B000 on power up, 
short pins 11 and 13 on the DIP header (pins 12 and 14 for address 
$B003) or pins 3 and 14 for a starting address of $D000. 

For OEM applications where the keyboard is still needed, the same effect 
can be achieved by temporarily shorting the correct pins with a reed re¬ 
lay driven by a timer chip. The time constant should be slightly longer 
than that of the power-on-reset timer (Z4) for proper operation. 

CORRECTIONS TO ISSUE 
#2 

In the DISASSEMBLER UTILITY on page 11, the periods should be 
removed from in front of the labels DEB and LECT in the source listing. 

The OFFSET LOADER program on page 13 was missing the immediate 
symbol (#) from all four of the immediate instructions (locations 0200, 
0205, 0222, and 0252). 

In the WE’VE GOT OUR EARS ON article on page 10, the correct Post 
Office box is 3669 (not 33093). 

A note table was left out of the AIM 65 SOUND article on page 8. It 
belongs right before the section headed “HERE’S HOW TO MAKE 
MUSIC’’. 


0C97 

68 



PL A 

BO=251 (B below first C) 

B = 124 

0C98 




V 

C=237 (first C) 

Cl = 117 (C above first C) 

0C98 




y GO 01 SPLAY 

C# = 224 

Cl# = lll 

0C98 




GETKS 

D = 211 

D1 = 104 

0C98 

20 

00 

00 

JSR DISP 

D# = 199 

Dl#=99 

0C9B 




? 

E= 188 

cn 

as 

II 

5 

0C9B 




0 RESTORE REGISTERS 

II 

FI = 88 

0C9B 




NOKEY 

F# = 167 

FI # = 83 

0C9B 

20 

AC 

EB 

JSR PLXY 

G= 157 

00 

I'¬ 

ll 

5 

0C9E 

68 



PL A 

G# = 149 

Gl# = 73 

0C9F 

A 9 

00 


L..0A #$00 

A = 140 

A1 = 69 

0CA1 

80 

2 A 

A 4 

STA CPIY 

> 

ii 

u> 

to 


0CA4 

40 



RTI 



OCA 5 




#=$0000 

In the AIMPLOT program on page 4, 

the opcode at location 0232 should 

0D00 





be 8D (not BD). Also, the bit instructions at locations 02A9 and 02BA 

on oo 




DISP 

are somewhat misleading. What the author really needed in this situation 

0000 

A 2 

13 


LDX #$13 

was a BIT IMMEDIATE instruction. 

But, as the 6502 doesn’t have such 

0002 

09 

80 


ORA #$80 

an instruction, he had to simulate it. He did this by finding the proper bit 

0004 




? 

pattern in the AIM 65 monitor ROMS and using the address of this bit 

0004 




vCONVERT X INTO AOOR 

pattern as the operand instead of the bit pattern itself thereby accom- 

0004 




IFOR DISPLAY 

plishing the same effect as a BIT IMMEDIATE instruction. 

4)004 

20 

70 

EF 

JSR OUTDO1 



JO 07 

60 



RTS 

Has anyone generated a table of all the bit patterns ($00-$FF) available 

0008 




♦ END 

in the AIM 65 monitor ROMS? I’d sure like to publish it. 
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LETTERS TO THE EDITOR 


Dear Editor 


Dear Sir, 


I would like to see a clearer explanation of how to output data to the 
printer than that illustrated in the AIM 65 Users Manual, ref Chapter 7. 
I would like to write an assembly language program, and then at some 
point in that program have the printer print the contents of either one of 
the index registers, accumulator, or a memory location. Quite simply 
put. I'd like an easy to follow subroutine that would do as shown: 

LDA XXXX ;some memory location 
JSR PRINT ;print contents of acc. 

then return to a users program. 

Is there an easy way to do this? 

Thank you 
R. A. Fairman 


Congratulations on a really-usable, cost-effective AIM65 and now a 
newsletter to match. 

ADDITION TO MARK REARDONS REAL TIME CLOCK 
(issue #1 p. 11) 

250 REM NOW THE TIME IS H HOURS, M MINUTES, S 
SECONDS 

251 REM BUG! NOT IF H OR M CHANGED WHILE PEEKING. 

252 REM IF THEY DID TIME COULD BE OUT BY ONE HOUR. 

253 REM FIX! TO DOUBLE CHECK THE TIME. 

254 IF PEEK(220) = H OR PEEK(221) = M THEN GO TO 240 

255 REM NOW! THE TIME IS H HOURS, M MINUTES, S 
SECONDS. 

^ = NOT EQUAL TO (sorry, no arrows). 


Mr. Fairman, 

There is a subroutine called NUMA ($EA46) that will output a hex value 
in the accumulator as two ASCII digits, but if the printer is not enabled, 
it will just be sent to the display. So, to do what you want will require 
making sure the printer is on before you JSR to NUMA. The best way to 
accomplish this is with a short subroutine that gets included in your pro¬ 
gram. The subroutine will have to save the present printer flag from 
P RIFLG ($A411), force the printer flag on by making it $80, do a JSR to 
NUMA, and then restore the printer flag to whatever it was before. 


SORRY! YOU LOSE YOUR BET we did know how to edit BASIC pro¬ 
grams but bet you didn’t know you don’t need tape to do it. 

If memory is split between the EDITOR and BASIC then a LOAD can 
be done using the memory read routine used by the Assembler. The pro¬ 
cedure is described below and assumes you have 4K of memory to be^ 
split down the middle to the EDITOR and BASIC. 

1. Allocate the MREAD routine (FADO) to the user input vector at 
HEX 0108. 0108 = DO 0109 = FA. 


PRTBYT SEC 

ROR PRIFLG 
JSR NUMA 
ASL PRIFLG 
CLC 
RTS 



Bit 7 is the only bit in the printer flag (PRIFLG) that has any meaning. 
It is this bit that gets tested to see if output gets sent to the printer (see 
line 2411 and 2412 in the AIM 65 monitor listing for an example of test¬ 
ing the printer flag). This means that the remaining 6 bits are free for 
our use. The first thing that is done upon entry to PRTBYT is to set the 
carry flag to a ‘ 1.' This will be put into bit 7 of the print flag location by 
the ROR PRIFLG instruction to “turn the printer on." The ROR PRIFLG 
instruction actually does two things. First, it rotates the cany flag into 
the bit 7 position of the printer flag (which turns the printer on) and also 
saves the previous print flag in bit 6 so it can be restored after we’re 
finished. The instruction JSR NUMA outputs the character to the printer. 
To restore the printer flag to its original condition we execute the ASL 
PRIFLG instruction. This simply shifts bit 6 back to the bit 7position and 
moves the 7’ which was shifted into the bit 7 position from the carry flag 
back to the carry flag. The carry flag is then cleared to prepare for our 
return to the main routine. 

the Editor 


2. Initialize BASIC answering 2047 to MEMORY SIZE? prompt. 


From here on only re-enter BASIC using command 2 ‘6.” * , » 


3. Escape from BASIC and initialize the EDITOR answering; FROM 
“800" TO “FFF" to the prompts. From here on only re-enter the 
EDITOR using command “T." 


4. You may now load your program into the EDITOR with the usual 
commands. Entry may be either from tape or the keyboard but ob¬ 
serve the following rules; 


a. The top line must always be a SPACE only. 


b. The bottom line must always be CONTROL Z only. 


c. Always exit the EDITOR using “T" then “Q". This leaves the 


pointer on the top line. 

5. When you want & LOAD your program into BASIC exit the EDI-C 


TOR and re-enteiyJASIC. LOAD in the usual way but answer “U" 
to the IN prompt where upon you will find your program being 
zapped into BASIC memory space. 




6. You may no\^RUN your program in the usual way but escaping to^ 
the EDITOR when editing is required and then re-load the program 
into BASIC for executing. 


mi IIACTIVE 


7. Sometimes you may find it more useful to do program modifica¬ 
tions direct on the BASIC program leaving the EDITOR unaltered 
so you can quickly restore the original by re-loading. To re-load 
you must re-enter the EDITOR to get the pointer on the top line 
otherwise nothing will get loaded. 

This EDITOR-BASIC technique has hidden depths which only become 
apparent with use and the application of a little ingenuity. So get to it! 

Here are some clues. 

1. The EDITOR can have direct commands entered into it such as 
NEW or RUN and these will be directly executed as the program 
is loaded. 

2. Normal program statements may be entered without line numbers 
and these will be directly executed as well. This is particularly use¬ 
ful for POKEing in machine code without occupying BASIC pro¬ 
gram space. 

3. If the EDITOR contains two lines with the same number the second 
will overlay the first. So don’t erase a line in order to replace it— 
just type in the new line after it. Erase a line only when your sure 
you won’t want to go back to it. 

4. A line can be temporarily erased either by inserting REM before 
the line number or by inserting just the line number on the line after 

k the one to be erased. 

5. If you are going to LOAD an EDITOR tape containing direct com¬ 
mands into BASIC the tape must have remote control connected. 

6. If REMarks are entered into the EDITOR with-out line numbers 
then they will not get loaded into BASIC space. Thus it is possible 
to have a lavishly commented EDITOR tape for development use 
and a fast loading BASIC tape for the user. 

7. You can LOAD part of a program in the EDITOR by putting a 
SPACE line before the section wanted and a CONTROL-Z line 
after it. Don’t use “T” when exiting the EDITOR, leave it pointing 
at the SPACE line before the section you want. 

8. Because LOAD does not erase existing lines, a large program can 
be built up and debugged by over-laying from a fairly small EDI¬ 
TOR space. 

An extension of the above techniques allows the writing of long self¬ 
loading over-laid programs operating within the AIM 65’s 4K ram. The 
approach is ideal for Automatic Test Equipment (A.T.E.) programs and 
if the Editor so wishes I will write further on it in the future. 

KEN FULLBROOK 
England 

Ken , 

You’re right. I didn’t know how to edit BASIC without using the cassette. 
Thanks a hunch!!! I’m sure our readers will appreciate it. 

The Editor 
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SOFTWARE REVIEW 

by the EDITOR 

How would you like to develop 1802 programs on your AIM 65? 

Or, how would you like to be able to set up a library of MACROS which 
can be called from your assembly language programs? 

If either, or both of these things interests you, then you’ll be interested 
in a new software package for the AIM 65 called MACRO. 

MACRO is actually a pre-processor that works in conjunction with the 
AIM 65 assembler. Its function is to accept a source file that contains 
macro calls, expand those macros by looking them up in a library file, 
and outputting a new source file with all the macros expanded so that the 
AIM 65 ROM assembler can assemble it. 

The macro library file must be set up which defines all the macros which 
are to be used and must be memory resident at the time the input file is 
submitted for expansion, (makes AIM 65 sound like a large machine, 
doesn’t it?) 

Here’s an example of what it looks like: 

SAMPLE MACRO 
INCD POINTR 

SAMPLE MACRO DEFINITION 

&INCD 
INC !1 
BNE *+4 
INC !1 + 1 
& 

SAMPLE MACRO OUTPUT 

INC POINTR 

BNE *+4 

INC POINTR+1 

(The character is used both to start and terminate a macro definition) 

Now that last little programming sequence (incrementing a double byte 
pointer) is something 6502 programmers do alot of. 

The same technique can be used to set up a cross assembler for most any 
other CPU. (6800,1802,8080 etc) Pretty excitin’ stuff!!! 

According to the documentation that accompanies MACRO, the mini¬ 
mum usable system is an AIM 65 with 2K of RAM, the assembler ROM, 
and remote control of least one cassette deck. The price is $15 which 
includes documentation and a cassette of the object code. The source 
code for MACRO is available either on cassette or as a listing for an ad¬ 
ditional $30. (This would enable you to adapt MACRO to your 6502 
floppy system) 

So far, I haven’t found any bugs in the system (I’m good at finding bugs) 
and it worked right the first time I tried it. 

It’s available from: POLAR SOLUTIONS 
Box 268 

Kodiak, Alaska 99615 
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TEMPERATURE 
CONVERSION PROGRAM 

(This program was reprinted from the Rockwell Hobby Club Newsletter 
of the Anaheim CA facility). 

If you’ve ever had the need to convert temperatures from Celsius to Fahr¬ 
enheit, then here is a program written in AIM 65 BASIC that will make 
life a little easier. 

Just follow the prompts and type in the start and end values in degrees 
Fahrenheit and the program will print out a table of the temperature in 
degrees centigrade (Celsius). 

PROGRAM 

490 INPUT “START”; S 

492 INPUT “FINISH”; F 

493 PRINT! “DEG.”, “DEG.” 

494 PRINT! “FAR.”, “CELS.” 

495 DEF FNA(A) = INT(A* 100+.5)/100 
500 FOR I = S TO F 

505 R=(I-32)*5/9 
510 PRINT! I,FNA(R) 

515 NEXT I 

SAMPLE PRINTOUT 
START? 0 
FINISH? 8 
DEG. DEG. 

FAR. CELS. 

0 -17.78 

1 -17.22 

2 -16.67 

3 -16.11 

4 -15.56 

5 -15 

6 -14.44 

7 -13.89 

8 -13.33 

FOUND HIDING . . . 

a BASIC command not found in the manual 

Dale Hall 
Torrance, CA 

Statement Syntax/Function Example 

POS POS (expression) Print POS(O) 

Returns print head 
position 0-19. 
requires a dummy 
argument. 


BASIC USR HELPER 

Georges-Emile April 
Montreal, Canada 

(Ed. note-1 f you call many machine language subroutines from your 
BASIC programs , this routine should be able to save you some time.) 

I find it inconvenient to have to use POKE statements every time I wish 
to use machine language programs; so I wrote the following set of ma¬ 
chine language programs which may be assembled on top of RAM mem¬ 
ory, or placed in a ROM somewhere else. 

Version shown here is in last page of 4K RAM. See listings. 

The programs work in the following manner: 

a) Program SET ADD 

When called, this program takes the argument passed to it by BASIC and 
places it in 4 and 5 to be used as an address by next access to “USR” 
function. 

b) Program CALLIT 

This program uses program SETADD to set up address of “USR” then 
calls program 

The programs are used as follows: 

Two subprograms (lines 1 and 2) are written in Basic. 

Line 1 sets up 4 and 5 to point to SETADD, then returns. 

Line 2 sets up 4 and 5 to point to CALLIT, then returns. 

Two situations may arise: 

a) It is desired to call machine language program (lets us call it 
SUB1), that needs an argument (ARG). 

The following sequence will call it the first time: 

100 GOSUB1: X = USR(SUB1): X = USR(ARG) 

Where SUB1 is decimal value of address of machine language pro¬ 
gram we wish to call. Subsequent calls to the same program can be 
made simply by X = USR(ARG) since address has been set up by 
line 100. 


/ 
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b) It is desired to call machine language program (SUB2). That needs 
no argument (e.g. input data). 

The followings will do just that: 

150 GOSUB2: X = USR(SUB2) 

or 

160 GOSUB1: X = USR(SUB2): X = USR(DUMMY) 

Lines 150 and 160 are fully equivalent but line 150 will execute 
faster. As was the case in a), subsequent calls to same program can 
simply be X = USR(DUMMY). Where DUMMY can by any valid 
variable or constant, since program needs no argument. 


It should be noted that program SETADD returns a value of 0 to 
basic so that the following sequence does not modify the value of 
Y: 


170 GOSUB1: Y = Y + USR(SUBl) 

Therefore line 100 could have been written: 

100 GOSUB1: X = USR(SUB1) + USR(ARG) 


ROUTINES TO ERSE USE OF USROO 
;$DF=22i’> $06=219 


==0FD8 FIXIT 6C06B8 JMP (FIXI) ; TRANSFORM DATA TO FIXED POINT 

; THE FOLLOWING SETS UP DATA AS ADDRESS OF 'USR', THEN RETURNS 
i TO BASIC WITH USR(X)=8 

; SHOULD BE USED WHEN FUNCTION REQUIRES ARGUMENT 
; '60SUB1-' SETS UP LINK TO THIS ROUTINE 


==0FDB SETADD 

A5A9 

LDA EXP 



C990 

CMP #$90 

i SEE IF TOO LARGE FOR SIGNED TREATMENT 


D00D 

6NE OK 



R5AA 

LDA MSD 

; IF TOO LARGE, TAKE MSD A MSD1 AS DATA 


8505 

STA LINKH 



A5AB 

LDA MSD1 


==0FE7 COMMON 

8504 

STA LINKL 



A900 

LDA #0 



85A9 

STA EXP 

; MAKE USR(X)=0 


60 

RTS 


==0FEE OK 

20D80F JSR FIXIT 

; TRANSFORM ARGUMENT TO ADDRESS 


A5AC 

LDA LSD1 



8505 

STA LINKH 



ASAD 

LDA LSD 



4CE70F JMP COMMON 

.; GO COMPLETE TRANSFER 


i THE FOLLOWING SETS UP ADDRESS FROM ARGUMENT 

#THEN CALLS ROUTINE 
i USED WHEN NO ARGUMENT IS NEEDED 
i 'G0SUB2' SETS UP LINK TO THIS ROUTINE 

;$DF=222,$FA=250 

==0FFA CALLIT 20DBOF JSR SETADD 

600460 JMP (LINK) i CALL ROUTINE 
==1000 END . END 

ERR0RS= 0000 


QUICK INSERTION ROM 
SOCKETS 


BASIC RECOVERY 
PROCEDURE 


Ron Riley 
Flint, MI 

I recently purchased PL-65 and after switching between BASIC and 
PL-65 ROMS several times, I decided to look into using zero-insertion 
force sockets. The problem with most of these sockets is that they require 
more room than AIM 65 has available. I did finally locate one that fits r 
however. It is part #504012459 and is available from WELLS ELEC¬ 
TRONICS INC., 1701 S. MAIN ST., SOUTH BEND, IND 46613. 
Since the zero insertion sockets gets plugged into the normal ROM 
socket, no desoldering is necessary. ROMs can now be swapped in and 
out with no danger of damaging the ROM or the socket. 


by Antonio Berges 
Dominican Republic 

How many times have you entered a rather long BASIC program into the 
AIM 65, confidently entered the monitor and then inadvertently hit the 
“5” key (rather than the “6” key) to reenter BASIC? You saw the 
ominous MEMORY SIZE? question and probably thought your BASIC 
program was “down the tubes.” 

As long as you don’t press the RETURN key, you’re safe. The program 
in memory can be recovered by hitting the ESC key followed by M 01 
RETURN / 00 B9. BASIC can now be reentered with the “6” key. What 
you’ve done is to replace the JMP $CEA3 at location $0000 to a JMP 
$B900. 


SNEAK 

PREVIEW 


Here’s an example of the type of graph¬ 
ics you’ll be able to generate with a 
program that will be in the next issue 
of INTERACTIVE. Stay tuned!!! 
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